Dat2Jul(-4712,01,01) # = 0 i.e. Start of Julian day numbering
Jul2Dat( 0 ) # -4712 1 1 12
formatFix(Dat2Jul(c(1582,10,4,23+59/60)),8,10) # 2299160.499.. = last day of Julian calendar
Jul2Dat( 2299160 ) # 1582 10 4 12
Dat2Jul(c(2000,3,2)) # 2451606
Jul2Dat(2451606.0) # 2000 3 2 12
mdiny(1,TRUE) # 1 1
mdiny(60,TRUE) # 2 29
Run the code above in your browser using DataLab